home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / prelude / List.p < prev    next >
Text File  |  2000-04-24  |  3KB  |  98 lines
  1. pTempVar <- <primitive 110 17 >
  2. <primitive 112 pTempVar 1  " isEmpty " \
  3.   #( #[ 16r10 16r5D 16rB5 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " last " \
  7.   #( #[ 16r10 16rA1 16rF7 16r02 16r5D 16rF3 16rF2 16r20 16r0A 16r18 16r0A \
  8.         16r30 16rF3 16rF5] \
  9.     #(  )) >
  10.  
  11. <primitive 112 pTempVar 3  " current " \
  12.   #( #[ 16r11 16r0A 16r30 16rF3 16rF5] \
  13.     #(  )) >
  14.  
  15. <primitive 112 pTempVar 4  " next " \
  16.   #( #[ 16r11 16r0A 16r31 16rF1 16r61 16rA2 16rF7 16r03 16r11 16r0A 16r30 \
  17.         16rF3 16rF5] \
  18.     #(  )) >
  19.  
  20. <primitive 112 pTempVar 5  " first " \
  21.   #( #[ 16r10 16rF1 16r61 16rA2 16rF7 16r03 16r11 16r0A 16r30 16rF3 16rF5 \
  22.        ] \
  23.     #(  )) >
  24.  
  25. <primitive 112 pTempVar 6  " removeLast " \
  26.   #( #[ 16r10 16rA1 16rF7 16r04 16r20 16r0A 16r24 16rF3 16rF2 16r20 16r20 \
  27.         16r0A 16r1E 16rE0 16r04 16r20 16r0A 16r24 16rF3 16rD8 16rF3 \
  28.         16rF5] \
  29.     #(  )) >
  30.  
  31. <primitive 112 pTempVar 7  " removeFirst " \
  32.   #( #[ 16r10 16rA1 16rF7 16r04 16r20 16r0A 16r24 16rF3 16rF2 16r10 16r71 \
  33.         16r10 16r0A 16r31 16r60 16r21 16r0A 16r30 16rF3 16rF5] \
  34.     #(  )) >
  35.  
  36. <primitive 112 pTempVar 8  " removeError " \
  37.   #( #[ 16r20 16r30 16rBC 16rF3 16rF5] \
  38.     #( 'cannot remove from an empty list'  )) >
  39.  
  40. <primitive 112 pTempVar 9  " remove:ifAbsent: " \
  41.   #( #[ 16r10 16rA1 16rF7 16r03 16r22 16rA5 16rF3 16rF2 16r20 16r5D 16rE2 \
  42.         16r03 16r1F 16r11 16r0A 16r30 16r21 16rB5 16rF7 16r15 16r23 \
  43.         16rA1 16rF7 16r07 16r11 16r0A 16r31 16rF1 16r60 16rF8 16r07 \
  44.         16rF2 16r23 16r11 16r0A 16r31 16r0B 16r33 16rF2 16r21 16rF4 \
  45.         16rF2 16r11 16rF3 16rD7 16rF2 16r22 16rA5 16rF3 16rF5] \
  46.     #(  )) >
  47.  
  48. <primitive 112 pTempVar 10  " remove: " \
  49.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBC 16rF3 16rD8 16rF3 16rF5 \
  50.        ] \
  51.     #( 'cant find item'  )) >
  52.  
  53. <primitive 112 pTempVar 11  " findLast " \
  54.   #( #[ 16r10 16rF1 16r71 16rA1 16rF7 16r02 16r5D 16rF3 16rF2 16r21 16r0A \
  55.         16r31 16rA2 16rF7 16r08 16r21 16r0A 16r31 16rF1 16r71 16rF2 \
  56.         16rF9 16r0E 16rF2 16r21 16rF3 16rF5] \
  57.     #(  )) >
  58.  
  59. <primitive 112 pTempVar 12  " coerce: " \
  60.   #( #[ 16r05 16r30 16rA0 16r72 16r21 16rE1 16r03 16r05 16r22 16r23 16r0B \
  61.         16r16 16rF3 16rB3 16rF2 16r22 16rF3 16rF5] \
  62.     #(  )) >
  63.  
  64. <primitive 112 pTempVar 13  " addAllLast: " \
  65.   #( #[ 16r21 16rE1 16r02 16r05 16r20 16r22 16r0B 16r16 16rF3 16rB3 16rF2 \
  66.         16rF5] \
  67.     #(  )) >
  68.  
  69. <primitive 112 pTempVar 14  " addAllFirst: " \
  70.   #( #[ 16r21 16rE1 16r02 16r05 16r20 16r22 16r0B 16r15 16rF3 16rB3 16rF2 \
  71.         16rF5] \
  72.     #(  )) >
  73.  
  74. <primitive 112 pTempVar 15  " addLast: " \
  75.   #( #[ 16r10 16rA1 16rF7 16r05 16r20 16r21 16r0B 16r15 16rF3 16rF2 16r20 \
  76.         16r0A 16r18 16r05 16r35 16rA0 16r21 16r0B 16r32 16r5D 16r0B \
  77.         16r33 16r0B 16r33 16rF2 16r21 16rF3 16rF5] \
  78.     #(  )) >
  79.  
  80. <primitive 112 pTempVar 16  " addFirst: " \
  81.   #( #[ 16r05 16r35 16rA0 16r21 16r0B 16r32 16r10 16r0B 16r33 16r60 16r21 \
  82.         16rF3 16rF5] \
  83.     #(  )) >
  84.  
  85. <primitive 112 pTempVar 17  " add: " \
  86.   #( #[ 16r05 16r35 16rA0 16r21 16r0B 16r32 16r10 16r0B 16r33 16r60 16r21 \
  87.         16rF3 16rF5] \
  88.     #(  )) >
  89.  
  90. <primitive 98 #List \
  91.   <primitive 97 #List #SequenceableCollection #AmigaTalk:General/List.st \
  92.    #(  #first #current ) \
  93.    #( #isEmpty #last #current #next #first #removeLast #removeFirst #removeError  \
  94.        #remove:ifAbsent: #remove: #findLast #coerce: #addAllLast: #addAllFirst: #addLast: #addFirst:  \
  95.        #add:  ) \
  96.   pTempVar 5 8 >>
  97.  
  98.